home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 1 / Sounds Terrific CD (1994)(Weird Science)(Disc 2 of 2)[!][Amiga-PC].iso / modules / g / greeny1a.mod < prev    next >
Text File  |  1994-08-04  |  9KB  |  330 lines
  1. I tested it on clean source this time.  RANQUOTE v2.00...
  2. Greeny #8 @6910
  3. Wed Jan 08 10:31:58 1992
  4.                   RANDOM MULTI-LINE QUOTES AT MENU PROMPTS
  5.  
  6.                                 GREENY01.MOD
  7.                 Version 2.00
  8.  
  9. Here's a mod that will allow random quotes at each main menu and transfer
  10. menu prompt.  It's mostly block read in, and unless you really want to you
  11. won't have to recompile your whole source code.
  12.  
  13. To edit the entire quote list (add quotes to the list, delete any quote from
  14. the list, or view the entire list) type //QUOTEEDIT from the main menu, or
  15. hit the quote key (") when it's waiting for a caller.  It will create and
  16. update a data file called RANQUOTE.DAT, in the gfiles directory.
  17.  
  18. Unlike version 1.00, this has been tested by installing it into vanilla 4.20
  19. source.  (Version 1.00 worked perfectly after two minor bug fixes, which are
  20. both marked.)  Also, the functions that are block read in have been
  21. considerably improved since 1.00, but they should have worked all right
  22. before...
  23.  
  24.  
  25.  
  26. To install the mod, do this:
  27.  
  28.  
  29. 1) Back up your source code.  (I use arj a -jm1 source *.c *.h *.prj, in a
  30.    batch file that deletes the old source.arj file first.  If you prefer
  31.    zip or something, it's your choice...)
  32.  
  33.  
  34. 2) You must prototype the three new functions.  The easy way to do this
  35.    is to stick them into the beginning of the file BBS.C.  Right after the
  36.    line #define modem_time 3.5 is a good place.  The function prototypes look
  37.    like this:
  38.  
  39. void random_quote();
  40. char *get_random_quote();
  41. void thump();
  42.  
  43.    Just add them into your source code, each on a seperate line.
  44.  
  45.  
  46. 3) Now find the function "void main()".  To do a search in Turbo C, or TC++,
  47.    Hit Control-Q Control-F, and type in void main() on the line it gives you.
  48.    Near the beginning of void main(), you'll find the following code.  Add
  49.    the line indicated, and change the other.  (== means this line is already
  50.    there, ++ means add this line, += means modify the existing line.)
  51.  
  52. ==  char *s, s1[81],s2[81];
  53. +=  int i,abort=0;            /* change from V1.00 */
  54. ==  long l;
  55. ==
  56. ==  if ((sysstatus_expert & thisuser.sysstatus)==0)
  57. ==    printmenu(0);
  58. ==
  59. ==  nl();
  60. ++  thump(get_random_quote(),&abort);
  61. ==  nl();
  62. ==  tleft(1);
  63.  
  64.  
  65. 4) About one screen down from the last change you should see this.  Add the
  66.    four lines indicated.
  67.  
  68. ==/**************************************************/
  69. ==  if (so()) {
  70. ++    if (strcmp(s,"QUOTEEDIT")==0) {
  71. ++      sysoplog("@ Ran QuoteEdit");
  72. ++      random_quote();
  73. ++    }
  74. ==    if (strcmp(s,"BOARDEDIT")==0) {
  75. ==      sysoplog("@ Ran Boardedit");
  76. ==      boardedit();
  77. ==    }
  78.  
  79.  
  80. 5) Next, search for the function "void dlmainmenu()" and modify the one line
  81.    and insert the other line, near the beginning.
  82.  
  83. ==  char *s, s1[81],s2[81],ch;
  84. +=  int i,i1,i2,abort=0,next;          /* change from V1.00 */
  85. ==  messagerec m;
  86. ==
  87. ==  if ((sysstatus_expert & thisuser.sysstatus)==0)
  88. ==  if ((sysstatus_expert & thisuser.sysstatus)==0)
  89. ==    printmenu(3);
  90. ==
  91. ==  nl();
  92. ++  thump(get_random_quote(),&abort);
  93. ==  nl();
  94. ==  tleft(1);
  95.  
  96.  
  97. 6) Now search for the function "void getcaller()" and add these three lines.
  98.    (They're about three screens down from the beginning...)
  99.  
  100. ==      switch(ch) {
  101. ++        case '\"':
  102. ++          if (ok_local()) random_quote();
  103. ++          break;
  104. ==        case '?':
  105. ==          if (ok_local()) {
  106.  
  107.  
  108. 7) Those are all the changes that need to be made to the existing code.  Now
  109.    we add some new functions.  These can be block read in if you don't feel
  110.    like typeing them.  (To block read something in, hit Control-K Control-R,
  111.    tell it the file name, and then hit Control-K Control-H to put the colors
  112.    back to normal.  Just block read in this entire mod at the end of BBS.C
  113.    and delete all the lines before and after the functions.  (Control-Y will
  114.    delete the line your cursor is currently on.)
  115.  
  116.  
  117. /* BEGINNING OF BLOCK READ FOR GREENY'S RANDOM QUOTE MOD */
  118.  
  119. /* These are all changed from 1.00 */
  120.  
  121. void random_quote()
  122. {
  123.  
  124. #define QUOTE_LINES 3
  125. #define QUOTE_SIZE ((80*QUOTE_LINES)+1)
  126.  
  127.   long int f,f1,i,i1,i42,offset;
  128.   int abort;
  129.   char s[QUOTE_SIZE],s1[100],ch,ch1;
  130.  
  131.   for(i=0; i<QUOTE_SIZE; i++) {
  132.   s[i]=0;
  133.   }
  134.   i=0;
  135.   do  {
  136.     abort=0;
  137.     lines_listed=0;
  138.     nl();
  139.     nl();
  140.     prt(5,"Random Quotes - A)dd, L)ist, D)elete, Q)uit :");
  141.     ch=toupper(getch());
  142.     nl();
  143.     switch(ch)  {
  144.       case 'Q':
  145.     return;
  146.       case 'L':
  147.         nl();
  148.     prt(2,"Random Quotes Available");
  149.     nl();
  150.         prt(2,"-----------------------");
  151.     nl();
  152.     strcpy(s1,"RANQUOTE.DAT");
  153.     if((f=open(s1,O_RDONLY))!=-1) {
  154.       lseek(f,0L,SEEK_SET);
  155.       i=filelength(f)/QUOTE_SIZE;
  156.       if (i) {
  157.         for (i1=0,(i=filelength(f)/QUOTE_SIZE); i1<i; i1++) {
  158.           lseek(f,((long) (i1*QUOTE_SIZE)),SEEK_SET);
  159.           read(f,s,QUOTE_SIZE);
  160.           sprintf(s1,"%04d:",i1+1);
  161.           if(!abort) {
  162.         ansic(4);
  163.         pl(s1);
  164.         ansic(0);
  165.           }
  166.           thump(s,&abort);
  167.           nl();
  168.         }
  169.       nl();
  170.       close(f);
  171.       } else {
  172.         close(f);
  173.         goto NOPE;
  174.       }
  175.     } else goto NOPE;
  176.     break;
  177. NOPE:
  178.     prt(3, "There are no quotes available.");
  179.     nl();
  180.     break;
  181.     case 'A':
  182.     nl();
  183.  
  184.     prt(2,"Enter Random Quote...");
  185.     nl();
  186.          sprintf(s1,"Enter Random quote, %d lines maximum",QUOTE_LINES);
  187.         pl(s1);
  188.         s1[0]=0;
  189.         s[0]=0;
  190.     for (i=0; i<3; i++) {
  191.       inli(s+strlen(s),s1,i<2 ? QUOTE_SIZE-strlen(s)-5 :
  192.            (QUOTE_SIZE-strlen(s)-5>78 ? 78 : QUOTE_SIZE-strlen(s)-5),
  193.            i <2 ? 1:0 );
  194.       if(s[0]==0) break;
  195.       if(strlen(s)>3) {
  196.         if(s[strlen(s)-3]!='\n') sprintf(s+strlen(s),"\n%c0",3);
  197.         else break;
  198.       }
  199.         }
  200.     if(s[0]==0) {
  201.       nl();
  202.       prt(3, "Aborted");
  203.       nl();
  204.       break;
  205.     }
  206.     strcpy(s1,"RANQUOTE.DAT");
  207.     f=open(s1,O_RDWR | O_CREAT | O_BINARY,S_IREAD | S_IWRITE);
  208.     if(filelength(f))  {
  209.       lseek(f,-1L,SEEK_END);
  210.       read(f,((void *)&ch1),1);
  211.       if(ch1==26) lseek(f,-1L,SEEK_END);
  212.     }
  213.     s[QUOTE_SIZE-1]=0;
  214.     write(f,(void *)s,QUOTE_SIZE);
  215.     close(f);
  216.     break;
  217.       case 'D':
  218.     prt(6,"Number of quote to delete : ");
  219.     mpl(4);
  220.     inputl(s,4);
  221.     i42=atoi(s);
  222.     if(i42<1) break;
  223.     strcpy(s1,"RANQUOTE.DAT");
  224.     f=open(s1,O_RDWR | O_BINARY);
  225.     if(f>-1) {
  226.       i1=filelength(f);
  227.       if(i42>i1/QUOTE_SIZE) {
  228.         close(f);
  229.         break;
  230.       }
  231.       i42--;
  232.       lseek(f,(long) (i42 * QUOTE_SIZE), SEEK_SET);
  233.       read(f,s,QUOTE_SIZE);
  234.       nl();
  235.       nl();
  236.       thump(s,&abort);
  237.       nl();
  238.       prt(5,"Delete this Quote ?");
  239.       if (yn())  {
  240.         if(i42<(i1/QUOTE_SIZE)-1) {
  241.           for(i=i42; i<(i1/QUOTE_SIZE)-1; i++) {
  242.         lseek(f,(long) (QUOTE_SIZE * (i+1)),SEEK_SET);
  243.         read(f,(void *)s,QUOTE_SIZE);
  244.         lseek(f,(long) (QUOTE_SIZE * i),SEEK_SET);
  245.         write(f,(void *)s,QUOTE_SIZE);
  246.           }
  247.         }
  248.         chsize(f,(long) (i1-QUOTE_SIZE));
  249.         pl("Quote deleted");
  250.       }
  251.       close(f);
  252.     }
  253.     break;
  254.       }
  255.     } while (1);
  256. }
  257.  
  258. char *get_random_quote()
  259. {
  260.   long int f,i,i1;
  261.   static char s1[QUOTE_SIZE];
  262.   char s[100];
  263.  
  264.   s1[0]=0;
  265.   strcpy(s,"RANQUOTE.DAT");
  266.   if ((f=open(s,O_RDONLY))!=-1)
  267.     {
  268.     lseek(f,0L,SEEK_SET);
  269.     i=filelength(f)/QUOTE_SIZE;
  270.     if(i) {
  271.       i1=random(i);
  272.       lseek(f,(long)  (i1 * QUOTE_SIZE),SEEK_SET);
  273.       read(f,s1,QUOTE_SIZE);
  274.     }
  275.     close(f);
  276.   }
  277.   return s1;
  278. }
  279.  
  280. void thump(char *s, int *abort)
  281. {
  282.   int i=0,what=0,glurk;
  283.   while(s[i]) {
  284.     if(!(*abort)) {
  285.       if(s[i]=='\n') {
  286.     glurk=curatr;
  287.     ansic(0);
  288.     nl();
  289.     setc(glurk);
  290.       }
  291.       else outchr(s[i]);
  292.     }
  293.     checka(abort,&what);
  294.     i++;
  295.   }
  296.   ansic(0);
  297. }
  298.  
  299. /* END OF BLOCK READ FOR GREENY'S RANDOM QUOTE MOD */
  300.  
  301.  
  302.  
  303. 8) Now save off the file by hitting F2, and compile it.  (If you haven't
  304.    figured out how to set up a decent project file for F9, figure out how to
  305.    do so and in the mean time drop to dos and use random's make file.)
  306.  
  307.  
  308. 9) Send me some email.  I have an account as user #8 at WWIVnet node @6910.
  309.  
  310.  
  311. NOTE: you can change color in a quote with the standard CTRL-P sequences.  On
  312. every line except the last one this won't shorten the length before it
  313. wordwraps.
  314.  
  315. ANOTHER NOTE: you can change the maximum number of lines in each quote by
  316. changing the #define QUOTE_SIZE, but you'll have to delete your old
  317. RANQUOTE.DAT file and start a new one if you've already entered a bunch of
  318. quotes of the old size.  3 lines is a good size, especially since the vast
  319. majority of quotes are likely to be one or two lines, and the full amount of
  320. disk space is allocated to store each quote even if you only enter one
  321. letter.
  322.  
  323. Thanks for being patient about version 2...  I'm in college, you know.  Takes
  324. up a lot of one's time.
  325.  
  326. 3(GREENY)09
  327. 9THE PROMISED LAND Delran NJ 609-764-7144  Reg. #91223
  328. 86HOST OF SUB 42 - DEEP THOUGHT: THE INTERNATIONAL MENSA NET0
  329. 7USR 38400/HST/HST/V.32/V.32-BIS/LAPM/V.42/V.42-BIS/MNP/ARQ/ASL
  330.